home *** CD-ROM | disk | FTP | other *** search

---

/ Developer Source 7 / developer source - volume 7.iso / orinf / feb96 / hoskf111.gif

< prev

next >

Graphics Interchange Format  |  1996-11-16  |  10KB  |  364x490  |  8-bit (22 colors)

Labels: text | electronics | screenshot | display | software | number | computer icon | web page | operating system
OCR: rctSearch Properties Name rotSearch PositionX 18 pix PositionY 31 pix Sizex 134 pix SizeY 77 pix TabEnabled True TabOrder 33 Transparent False Visible True 7 ChildClick Sub ChildClick(child as Object) 'Set the query clause for the contacts repeater based on selections IF child.Label = "ALL" then repContactList.udpQueryStr = NULL repContactList. QueryWhere( repContactList.udpQueryStr ) rotTitle.txtTitle.Label = "All Contacts" ELSE repContactList.udpQueryStr = "Lastname like "" & child.Label & "%"" repContactList.Query'Where( repContactList.udpQueryStr ) rotTitle.txtTitle.Label = "Contacts: " & repContactList.udpQueryStr END IF ' Clear the 'last name like' field fldNameLike. Value = "" [>> ChildDbIClick

---